home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh16a.d64 / helpmaker twm (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  5KB  |  177 lines
  1. 100 REM *******************************
  2. 110 REM *                             *
  3. 120 REM * AK-SOFT PROUDLY PRESENTS :  *
  4. 130 REM *                             *
  5. 140 REM * >HELP-MAKER ZU KARTEIVERW.< *
  6. 150 REM *                             *
  7. 160 REM *       PROGRAMMED WITH       *
  8. 170 REM *                             *
  9. 180 REM *         T W M  V1.0         *
  10. 190 REM *                             *
  11. 200 REM *    BY A.KNUEPFER            *
  12. 210 REM *       AUF DEM KNUELL 18     *
  13. 220 REM *       2056 GLINDE           *
  14. 230 REM *       TEL. 040/710 80 06    *
  15. 240 REM *                             *
  16. 250 REM *******************************
  17. 260 :
  18. 296 :
  19. 297 REM -------------------------------
  20. 298 REM  INITIALISIERUNG
  21. 299 :
  22. 300 IF PEEK(32168)<>162 OR PEEK(38168)<>150 THEN LOAD"TWM V1.0",8,1
  23. 310 SYS 32168
  24. 320 :
  25. 330 POKE53280,0 :POKE53281,0
  26. 395 :
  27. 396 :
  28. 397 REM ===============================
  29. 398 REM  BEARBEITUNGSSCHLEIFE
  30. 399 :
  31. 400 (null) 1,"DIES PROGRAMM ERSTELLT DIE HELP-WINDOWS"
  32. 402 (null) 3,"FUER DAS HAUPTPROGRAMM"
  33. 404 (null) 5,"'KARTEIVERW. TWM'."
  34. 406 (null) 8,10,"ALLES KLAR (J/N) ? ",,"JN",1,JN$ :IF JN$<>"J" THEN STOP
  35. 410 READ D1$:IF D1$="" THEN PRINT"[147]FERTIG !" :END
  36. 415 READ D0$,D2$
  37. 420 READ Z1,S1,Z2,S2,TYP,BSC,H$
  38. 430 READ CO,EO,D3
  39. 440 (null)1,Z1,S1,Z2,S2,TYP,BSC,H$ :(null)1,CO,EO,D3 :(null)1
  40. 450 :
  41. 460 READ Z :IF Z<0 THEN 500
  42. 470 READ S,T$
  43. 480 IF S>127 THEN (null) Z,T$ :GOTO 460
  44. 490 (null) Z,S,T$; :GOTO 460
  45. 495 :
  46. 500 (null) "@:"+D1$,D0$,D2$
  47. 510 (null) :(null)1
  48. 520 GOTO 410
  49. 989 :
  50. 990 :
  51. 991 REM ===============================
  52. 992 REM  DATEN : NAME, VORHER, NACHHER
  53. 993 REM          Z1/S1, Z2/S2, TYP, BSC
  54. 994 REM          HEADER-TEXT
  55. 995 REM          FARBE, EOR, 3D-FARBE
  56. 996 :
  57. 997 REM ----- HELP-WINDOW BEI
  58. 998 REM        WINPUT-EINGABEN
  59. 999 :
  60. 1000 DATA "HELP WINPUT",,
  61. 1010 DATA 10,0,24,39,1,0,"[197]INGABE",8,128,
  62. 1020 DATA 1,1,"[155] [195][210][211][210] [204][197][198][212], [210][201][199][200][212], [213][208], [196][207][215][206] [129] [194]EWEGEN"
  63. 1030 DATA 3,1,"[155] [201][206][211][212], [196][197][204] [129] : [197]INFUEGEN, [204]OESCHEN
  64. 1040 [131] 5,1,"LIST LEFT$(null)(null)VAL FOR      : ATNNFANG DES ASCELDES"
  65. 1050 [131] 7,1,"LIST LEN(null)(null) FOR       : LEFT$(null)(null)VAL UND ASCELD LOESCHEN"
  66. 1060 [131] 9,1,"LIST (null)VAL(null)(null)(null)(null) FOR    : VALINGABE BEENDEN"
  67. 1070 [131] -1
  68. 1996 :
  69. 1997 [143] ----- HELP-WINDOW BEI
  70. 1998 [143]        BOXMENU-AUSWAHL
  71. 1999 :
  72. 2000 [131] "HELP BOXMENU",,
  73. 2010 [131] 5,4,19,36,1,0,"PEEKOXMENUE - ATNUSWAHL",8,128,
  74. 2020 [131] 1,1,"PEEKEWEGEN (null)IE DEN (null)FEIL MITTELS"
  75. 2030 [131] 3,1,"LIST LEN(null)(null)(null) (null)VALASC(null), (null)RIGHT$CHR$LEFT$(null), (null)(null), STR$(null)(null)(null) FOR"
  76. 2040 [131] 5,1,"ZU DER GEWUENSCHTEN ASCUNKTION"
  77. 2050 [131] 7,1,"UND BETAETIGEN (null)IE DANNLIST"
  78. 2060 [131] 9,128," (null)VAL(null)(null)(null)(null) FOR."
  79. 2070 [131] -1
  80. 2996 :
  81. 2997 [143] ----- HELP-WINDOW ZUM
  82. 2998 [143]        HAUPT-BOXMENU
  83. 2999 :
  84. 3000 [131] "HELP HAUPTMENU",,"HELP BOXMENU"
  85. 3010 [131] 5,2,17,36,1,0,"LEFT$AUPTMENUE",8,128,
  86. 3020 [131] 1,1,"LIST VAL(null)STR$VAL FOR (null)ERLASSEN DES (null)ROGRAMMS"
  87. 3030 [131] 3,1,"LIST (null)(null)ATNSTR$ FOR (null)ADEN EINER NEUEN (null)ARTEI"
  88. 3040 [131] 5,1,"LIST VALSTR$RIGHT$(null) FOR PEEKEARBEITEN DER (null)ARTEI"
  89. 3050 [131] 7,1,"LIST (null)ATN(null)VAL FOR ATNBSPEICHERN DER (null)ARTEI"
  90. 3060 [131] -1
  91. 3996 :
  92. 3997 [143] ----- HELP-WINDOW ZUM
  93. 3998 [143]        EDIT-BOXMENU
  94. 3999 :
  95. 4000 [131] "HELP EDITMENU",,"HELP BOXMENU"
  96. 4010 [131] 4,0,21,39,1,0,"VALSTR$RIGHT$(null)-(null)ENUE",8,128,
  97. 4020 [131] 1,1,"LIST _ FOR (null)ERLASSEN DER VALSTR$RIGHT$(null)-(null)OUTINE"
  98. 4030 [131] 3,1,"LIST ATNVAL(null)STR$VAL(null)(null) FOR ATNENDERN EINES STR$ATENSATZES"
  99. 4040 [131] 5,1,"LIST (null)(null)VAL(null)LENLEFT$ FOR (null)OESCHEN EINES STR$ATENSATZES"
  100. 4050 [131] 7,1,"LIST << FOR LIST < FOR PEEKLAETTERN NACH VORNE"
  101. 4060 [131] 8,1,"LIST >> FOR LIST > FOR PEEKLAETTERN NACH HINTEN"
  102. 4070 [131] 10,1,"LIST ATN(null)ASC(null)VALCHR$ FOR ATNNFUEGEN EINES STR$ATENSATZES"
  103. 4080 [131] 12,1,"LIST (null)(null)(null)(null) FOR (null)ARTEI ALPHABETISCH SORIEREN"
  104. 4090 [131] -1
  105. 4995 :
  106. 4996 [143] ----- HELP-WINDOW ZUR
  107. 4997 [143]        DEFINITION DER MASKE
  108. 4998 :
  109. 4999 [143] ----- SEITE 1
  110. 5000 [131] "HELP MASKDEF 1",,"HELP MASKDEF 2"
  111. 5010 [131] 6,1,24,38,1,0,"STR$EFINITION DER VALRIGHT$(null)CHR$ATNPEEKVAL(null)ATN(null)(null)VAL 1",8,128,
  112. 5020 [131] 1,1,"LIST (null)EGEN (null)IE EINE VALINGABEMASKE AN ! FOR"
  113. 5030 [131] 3,1,"VALINE SOLCHE (null)ASKE BESTEHT AUS"
  114. 5040 [131] 5,1,"VALINGABEFELDERN UND AUS (null)EXTEN,"
  115. 5050 [131] 7,1,"DIE DIE ASCUNKTION DER VALINGABEFELDER"
  116. 5060 [131] 9,1,"ANGEBEN."
  117. 5070 [131] 11,1,"PEEKSP.                              FOR"
  118. 5080 [131] 12,6," CONT (null)AME  LISTTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO FOR"
  119. 5090 [131] 13,6,"                             FOR"
  120. 5100 [131] -1
  121. 5198 :
  122. 5199 [143] ----- SEITE 2
  123. 5200 [131] "HELP MASKDEF 2","HELP MASKDEF 1","HELP MASKDEF 3"
  124. 5210 [131] 4,1,24,38,1,0,"STR$EFINITION DER VALRIGHT$(null)CHR$ATNPEEKVAL(null)ATN(null)(null)VAL 2",8,128,
  125. 5220 [131] 1,1,"(null)UM VALRSTELLEN DER (null)ASKE STEHEN"
  126. 5230 [131] 3,1,"RIGHT$HNEN ALLE (null)ASTEN ZUR (null)ERFUEGUNG."
  127. 5240 [131] 5,1,"VALIN VALINGABEFELD KENNZEICHNEN (null)IE"
  128. 5250 [131] 7,1,"DURCH EINEN (null)TRICH AUS"
  129. 5260 [131] 9,1,"LIST LEN(null)(null)(null)(null)STR$(null)(null)VAL-'@' = 'TO' -(null)EICHEN FOR."
  130. 5270 [131] 11,1,"VALIN ZUSAETZLICHES PEEKENUTZEN VON"
  131. 5280 [131] 13,1,"VERSCHIEDENEN ASCARBEN ZUR LEFT$ERVOR-"
  132. 5290 [131] 15,1,"HEBUNG IST EMPFEHLENSWERT."
  133. 5300 [131] -1
  134. 5398 :
  135. 5399 [143] ----- SEITE 3
  136. 5400 [131] "HELP MASKDEF 3","HELP MASKDEF 2",
  137. 5410 [131] 10,1,24,38,1,0,"STR$EFINITION DER VALRIGHT$(null)CHR$ATNPEEKVAL(null)ATN(null)(null)VAL 3",8,128,
  138. 5420 [131] 1,1,"(null)IE BEENDEN DIE STR$EFINITION MIT"
  139. 5430 [131] 3,1,"DER (null)ASTE LIST F3 FOR."
  140. 5440 [131] 5,1,"STR$AS (null)YSTEM SPEICHERT DIE ERSTELLTE"
  141. 5450 [131] 7,1,"(null)ASKE AB, DAS ASCORMAT DER (null)ARTEI"
  142. 5460 [131] 9,1,"IST DAMIT ENDGUELTIG FESTGELEGT."
  143. 5470 [131] -1
  144. 5996 :
  145. 5997 [143] ----- HELP-WINDOW ZUR
  146. 5998 [143]        KARTEINAMEN-MENUAUSWAHL
  147. 5999 :
  148. 6000 [131] "HELP MENU",,
  149. 6010 [131] 10,0,24,39,1,0,"(null)ARTEINAMEN - ATNUSWAHL",8,128,
  150. 6020 [131] 1,1,"LIST LEN(null)(null), LENSTR$(null)(null)(null) FOR PEEKEWEGEN DES ATNUSWAHL-"
  151. 6030 [131] 2,14,"BALKENS NACH OBEN"
  152. 6040 [131] 3,14,"UND UNTEN"
  153. 6050 [131] 5,1,"LIST LEFT$(null)(null)VAL FOR       CHR$ANZ NACH OBEN"
  154. 6060 [131] 7,1,"LIST LEN(null)(null) FOR        ATNN DEN ATNNFANG DER (null)ISTE"
  155. 6070 [131] 9,1,"LIST (null)VAL(null)(null)(null)(null) FOR     ATNUSWAHL BEENDEN"
  156. 6080 [131] -1
  157. 6996 :
  158. 6997 [143] ----- HELP-WINDOW ZUR
  159. 6998 [143]        KARTEIKARTEN-EINGABE
  160. 6999 :
  161. 7000 [131] "HELP MEDIT",,"HELP WINPUT"
  162. 7010 [131] 4,2,24,37,1,0,"(null)ARTEIKARTEN - VALINGABE",8,128,
  163. 7020 [131] 1,1,"ASCUER DIE VALINGABE EINES EINZELNEN"
  164. 7030 [131] 3,1,"ASCELDES SIEHE (null)EITE 2."
  165. 7040 [131] 5,1,"(null)IT LIST (null)VAL(null)(null)(null)(null) FOR GELANGEN (null)IE ZUM"
  166. 7050 [131] 7,1,"FOLGENDEN VALINGABEFELD,"
  167. 7060 [131] 9,1,"MIT LIST F3 FOR ZUM VORHERIGEN."
  168. 7070 [131] 11,1,"PEEKEIM LETZEN VALINGABEFELD BEWIRKT"
  169. 7080 [131] 13,1,"LIST (null)VAL(null)(null)(null)(null) FOR EIN PEEKEENDEN DER"
  170. 7090 [131] 15,1,"(null)ARTEIKARTENEINGABE."
  171. 7100 [131] -1
  172. 7996 :
  173. 7997 [143] ----- HELP-WINDOW ZUR
  174. 7998 [143]
  175. 7999 :
  176. 8000 [131] ""
  177.